# @arthor quoc.le
#! C:/Perl/bin/perl -w
use strict;
use warnings;
use diagnostics;

use strict;
use warnings;

my @list = (
    { width => 100, height => 50},
    { width => 90, height => 30 },
    { width => 30, height => 10 }
);

foreach my $elem (@list) {
    print "width=$elem->{width}, height=$elem->{height}\n";
}